home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Compilers⁄Interps / GCC-2.3.3r12 / Tests / pascalxxx.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-19  |  461 b   |  32 lines  |  [TEXT/MPS ]
  1. #define PASCAL pascal
  2. // #define PASCAL
  3.  
  4. PASCAL char char2char (char);
  5. PASCAL short short2short (short);
  6. PASCAL int int2int (int);
  7. PASCAL int intint2int (int, int);
  8.  
  9. char globchar;
  10. char globshort;
  11. int globint;
  12.  
  13. int flag;
  14.  
  15. main1()
  16. {
  17.     globchar = char2char('a');
  18.     if (flag) stackhacker(1, 2, 3);
  19. }
  20.  
  21. main2()
  22. {
  23.     globshort = short2short(12345);
  24.     if (flag) stackhacker(1, 2, 3);
  25. }
  26.  
  27. main3()
  28. {
  29.     globint = intint2int(123456789, 65536);
  30.     if (flag) stackhacker(1, 2, 3);
  31. }
  32.